NASA TECHNICAL 
MEMORANDUM 

NASA TM X-64585 


SKYLAB FILM USAGE ANALYSIS PROGRAM 

By Ronald A. Schlagheck 
Astronautics Laboratory 


April 21. 1971 



NASA 

George C. Marshall Space Flight Center 
Marshall Space Flight Center, Alabama 


MSEC « Fcs*m 3190 ^September 1968) 


1. REPORT NO. 2. GOVERNMENT ACCESSION NO. 

NASA TM X-64585 

3. RECIPIENT’S CATALOG NO. 

4. TITLE AND SUBTITLE 

5, REPORT DATE 

April 21, 1971 

SKYLAB FILM USAGE ANALYSIS PROGRAM 

6. PERFORMING ORGANIZATION CODE 

5/28 

7, AUTHOR (S) 

Ronald A. Schlagheck 

a. PERFORMING ORGANIZATION REPORT # 

9. PERFORMING ORGANIZATION NAME AND ADDRESS 

10. WORK UNIT NO. ■ 

964-50-10-00-00 , 

George C. Marshall Space Flight Center 
Marshall Space Flight Center, Alabama 35812 

11. CONTRACT OR GRANT NO. i 


13. TYPE OF REPORT & PERIOD COVERED 

12. SPONSORING AGENCY NAME AND ADDRESS 


National Aeronautics and Space Administration 

Technical Memorandum 

Washington, D. C. 20546 

14. SPONSORING AGENCY CODE 

15. SUPPLEMENTARY NOTES 


Prepared by Astronautics Laboratory, Science and Engineering 



1 6. ABSTRACT 

A computer model for a film usage analysis of the Skylab missions is described. The major 
objectives of the program are to predict the total time that each film canister will be out of the radiation 
vault and to verify the compatibility between the principal investigators’ film requirements and the amount 
of time allocated for filming during the mission. The program is written in GASP IIA simulation language. 
The description and format for the input data are given. An example problem, as well as a sample output, is 
explained. The program description includes an execution flow chart, subprogram definitions, variable 
definitions, array hmitations, and a FORTRAN listing of both the user written routines and the GASP 
routines. 

EDITOR’S NOTE 

Use of trade names or names of manufacturers in this report does not constitute an official 
endorsement of such products or manufacturers, either expressed or implied, by the National Aeronautics 
and Space Administration or any other agency of the United States Government. 


17. KEY WORDS 

Simulation Radiation 

Skylab Film storage 

GASP 

Math-model 
Film usage 
Film 


9. SECURITY CLASSIF. (of this report) 

Unclassified 


MSFC - Form 3292 (May 1969) 


18. DISTRIBUTION STATEMENT 

Unclassified - unlimited 




20. SECURITY CLASSIF. (of this page) 

21. NO. OF PAGES 

22. PRICE 

Unclassified 

78 

$3.00 

























TABLE OF CONTEi^TS 


Page 

SUMMARY 1 

INTRODUCTION 1 

PROGRAM OPERATING INSTRUCTIONS 2 

Control Card Description 2 

Input Data Description 3 

EXAMPLE PROJECT 6 

PROGRAM DESCRIPTION 11 

Program Execution 11 

User-Written Routines 16 

GASP Routines 18 

APPENDIX A. USER-WRITTEN PROGRAM INFORMATION 19 

APPENDIX B. GASP FILE AND PROGRAM INFORMATION 46 


iii 



LIST OF TABLES 


Table Title Page 

1 . Listing of Input Data for Example Project 7 

2. Initial Film Requirements Data for Skylab Mission 8 

3. Listing from Activity Timeline Tape 9 

4. Intermediate Film Usage Results 10 

5. Film Usage Summary 12 

6. Frequency Results for Time Out of Vault 13 

7. Summary Results for Completed Film Requirements 13 

8. Printout of Canister Timeline Tape 14 

A-1. User-Written Subprogram Description 19 

A-2. User-Defined Variables and Arrays 21 

A-3. Fortran Listing of User-Written Program MAIN 23 

A-4. Fortran Listing of User-Written Subprogram CDATA 25 

A-5. Fortran Listing of User-Written Subprogram ENEVT 27 

A-6. Fortran Listing of User-Written Subprogram EPICK 28 

A-7. Fortran Listing of User-Written Subprogram EVNTS 31 

A-8. Fortran Listing of User-Written Subprogram MATRIX 32 

A-9. Fortran Listing of User-Written Subprogram NXEVT 36 

A-10. Fortran Listing of User-Written Subprogram GTPUT 40 

A-1 1 . Fortran Listing of User-Written Subprogram PFILE 41 

A-1 2. Fortran Listing of User-Written Subprogram SCAN 42 


IV 



LIST OF TABLES (Concluded) 


Table Title Page 

A-13. Fortran Listing of User-Written Subprogram SCANT 43 

A-14. Fortran Listing of User-Written Subprogram STEVT 44 

A-15. Fortran Listing of User-Written Subprogram WRITEO 45 

B-1. Attributes for Event File 46 

B-2. Attributes for Experiment/Film Requirement Files 47 

B-3. Attributes for Experiment/Canister Files 48 

B-4. GASP Subprogram Description 49 

B-5. GASP Variables and Arrays 50 

B-6. Fortran Listing of GASP Subprogram COLCT 53 

B-7. Fortran Listing of GASP Subprogram DATAN 54 

B-8. Fortran Listing of GASP Subprogram ERROR 57 

B-9. Fortran Listing of GASP Subprogram FILEM 58 

B-10. Fortran Listing of GASP Subprogram FINDN 59 

B-1 1 . Fortran Listing of GASP Subprogram FINDQ 60 

B-1 2. Fortran Listing of GASP Subprogram GASP 62 

B-13. Fortran Listing of GASP Subprogram HISTO 64 

B-14. Fortran Listing of GASP Subprogram RMOVE 65 

B-1 5. Fortran Listing of GASP Subprogram SET 66 


V 



TECHNICAL MEMORANDUM X-64585 


SKY LAB FILM USAGE ANALYSIS PROGRAM 


SUMMARY 


A computer model for a film usage analysis (FUA) of the Skylab (SL) mission has 
been developed, and its operation and use are described in this report. The program traces 
the use of the film cassettes throughout the complete mission and tabulates the total 
amount of time that each canister is out of the radiation vault, along with a summary of 
unused film. 

This program is written in General Activity Simulation Program (GASP)-IIA 
language. The use of GASP was best suited for this program because of its adaptability 
to the accounting processes and event logic that were considered. The input to the 
program consists of the film requirements data and the filming activity timeline. A com- 
plete description of the user-written routines is given so that the changes to the existing 
model may be made when needed. 


INTRODUCTION 


Many of the activities to be performed on the SL missions require various amounts 
of filming, with some activities using different types of film. For example, the amount of 
filming planned for the SL-1/2 mission consumes 60 to 70 canisters for 30 different 
experiments and activities. A model was developed to provide the mission planner with 
an easy method of keeping track of the 150 filming events that will take place during 
the 28-day mission. The prime objectives of the SL FUA model are to predict the time 
that each canister will be out of the protective film vault and to verify compatibility 
between the film requirements and the mission timeline. The calculated out-of-vault 
time is used to predict the approximate amount of radiation dosage that each film canister 
will receive. A canister usage timeline tape can be generated by this program and serves 
as input to a detailed radiation analysis model. 

The program is written in GASP IIA simulation language. This is a Fortran-based, 
next-event simulation language consisting of a set of Fortran routines that can be used by 
the analyst subprograms. No attempt will be made to explain the fundamental operations 



of GASP since adequate references' are available, and an understanding of it is not needed 
for those who want to use the program as it is. However, modifications can easily be made 
to the existing program if the analyst wants to change the model to fit his particular needs. 

This report is divided into three major sections. The first section contains all the 
instructions required by the user to operate and execute the program. A description of 
the UNIVAC 1108 control cards and of the input data format is presented. The second 
section illustrates an example project. A variety of different program options is shown, 
along with a listing of the input data and output results. The third section is a program 
description and should be referred to if modifications to the existing program are 
necessary. It includes a description of program execution, subprograms, variables, and 
GASP file definitions; project limitations, and a Fortran listing of all routines. 


PROGRAM OPERATING INSTRUCTIONS 


Control Card Description 

Execution of the FUA program may be accomplished by means of the following 
control deck designed for operation on the Marshall Space Fhght Center’s (MSFC) 
UNIVAC 1108 EXEC VIII system. This method uses two tapes that are stored in the 
central site tape library. The first is the program tape that contains a compiled set of 
subroutines ready for execution. The second tape is the activity timeline data that is 
used as dynamic input to the program. 

An additional tape may be needed when the user wishes to produce an output 
data tape that contains a canister usage timeline trace. All control cards containing the 
word OPTIONAL should be deleted from the following list if the output tape is not 
required. 


1. A. A. Pritsker and P. J. Kiviat: 
Englewood Cliffs, N. J., 1969. 


Simulation with GASP II. Prentice Hall, Inc., 
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Similar control card deck setups may be generated for other computers or remote 
site operation. 


input Data Description 

The input data required for the FUA program consist of three different types of 
data cards and one data tape. The format and description of the cards and tape are as 
follows. 


1. Data Card Type 1 (2A6, 2A4, 5F10.0, 15) 


Fields 1 and 2 (Tl, T2) 


A 12-letter alphanumeric title that describes the 
mission being analyzed. (Example, Skylab 1/2). 


Fields 3 and 4 (Dl, D2) 


The reference date assigned by the analyst. 


Field 5 (PRTIME) 


The time the film canisters have been in the vault 
up to the start of the current mission (minutes). 


Field 6 (VATIME) 


The maximum time the film canisters have been in 
the vault during the current mission (minutes). 
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Field 7 (OTTIME) 

Field 8 (XDAY) 

Field 9 (XTIME) 

Field 10 (JTEST) 

2. Data Card Type 2 

Fields 1 through 4 
(TRANS(I),I=1, 4) 

3. Data Card Type 3 


The amount of time that the film canisters were 
out of the vault other than for filming operations 
(minutes). 

The number of minutes per orbital day. 

The initial starting time for the first orbital day 
(MISSION TIME = GROUND ELAPSED TIME 
+ X TIME). 

If a canister usage timeline output tape is required, 
a (1) should be placed in this field; otherwise, it 
can be left blank. 

(4F5.1) 

The transfer time for moving the canister between 
the film vault and the area of filming. The four 
defined areas are the CM, MDA, AM, and OWS, 
respectively. Time is in minutes. 

(13, 5X, 2A6,6I5, 3F10.1) 


a. This data card contains all the attributes associated with the experiment/ 
film requirements. The user must define one card per individual filming requirement. 


b. For activities requiring multiple film types, one card entry per type 
should be assigned. 


Field 1 (JQ) 


Fields 2 and 3 
(NAME 1,NAME 2) 


Activity identification code. This variable matches 
those codes contained on the activity timeline 
tape. (The code value of 1 is not permitted.) 

A 12-Ietter alphanumeric descriptor used for 
identification of the event being filmed. 


Field4(JTRIB(l)) 


Numeric representation of the film type assigned 
to the activity. 


Field 5 (JTRIB(2)) Numeric code for the type of camera to be used. 

Present program designates camera 1 as a Maurer, 
2 as a Hasselblad, 3 as undefined, and 4 as TBD. 
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Field 6 (JTRIB(4)) 
Field 7 (JTRIB(3)) 


Field 8 (JTRIB(5)) 


Field 9 (JTRIB(7)) 

Field 10(ATRIB(1)) 
Field 1 1 (ATRIB(2)) 
Field 12 (ATRIB(3)) 


The footage or number of exposures per canister 
for the particular film type being used. 

Special canister code used by activities that share 
film off the same canister. Any integer may be 
assigned to this field; however, the same value 
must be assigned for all filming events that use a 
common canister. This field may be left blank. 

Code to indicate that the film is to be returned to 
the vault immediately after filming occurs versus 
waiting until the completion of activity perform- 
ance. A 1 in this field represents immediate return; 
otherwise, it can be left blank. 

Integer code representing the location of filming. 
This field may be left blank if the location code is 
specified on the activity timeline tape. 

Total footage or exposures to be shot. 

Film time per activity performance in minutes. 

Camera shooting rate. For movie cameras it is in 
feet per minute and for single exposure cameras, 
shots per minute. 


c. A blank card must be inserted as the last card in the data deck. 

d. In cases where the filming requirements dictate variable shooting times 
and camera rates, this information can be read from the activity tape, thus overriding any 
constant input values defined on this card type. 

4. Activity Timeline Tape Description 

a. Present program operation requires the mission timeline of filming 
activities to be read from a magnetic tape. This tape is a condensed version of a generahzed 
flight plan timeline tape containing only those events that require film. Input to the 
program is accomphshed by a binary tape read statement containing the following variables. 

Variables Function 


ICODE This integer variable represents the code for an 

event requiring film. These codes must be com- 
patible with the identification used in Field 1 of 
data card type 3. 
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Variables 

Function 

ASTART 

The starting time at the beginning of the activity 
(hours). 

ASTOP 

The ending time at the completion of the activity 
(hours). 

LOC 

An integer variable indicating the location of 
filming. Used for determining the cumulative 
transfer time per canister. Present timeline includes 
the four major locations in the Skylab workshop 
(1-CM, 2-MDA, 3-AM, and 4-OWS). 


b. Other formats for the activity timeline tape can be used by the program; 
however, subroutine EPICK must be changed accordingly. 


EXAMPLE PROJECT 


The example project chosen is based on preliminary film requirements and other 
information selected from the SL-3 mission. These data illustrate typical results pro- 
duced by the FUA model. As explained in the preceding section of this report, the input 
film requirements consist of nine different attributes associated with each requirement 
entry. A listing of the punched input data is shown in Table 1, and the program printout 
of this information is shown in Table 2. Notice should be taken of the canister assign- 
ment for experiments M074, M092, and M093. These experiments permit the sharing of 
film among canisters assigned to the three activities. An identical canister code (10) was 
assigned to field 7 for each card entry. Experiments M171B and M171C also share 
common canisters. 

A special requirement was placed on all film for experiment SI 90. This type of 
film is very sensitive to the radiation environment; therefore, the analyst specified that 
these canisters are to be returned to the vault immediately after filming takes place. A 
“1” placed in field 8 permitted this option to be executed. 

Tke activity timeline used represents a reference flight plan that was defined 
during the planning stages of the Skylab program. An example listing of the first 50 
records contained on the timeline tape is shown in Table 3. 

The output of the program generates four tables and one optional canister usage 
trace tape. Table 4 is an hour-by-hour timeline of the status of each canister. Identifica- 
tion of each canister is made by a number code assigned internally within the program and 
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TABLE 1. LISTING OF INPUT DATA FOR EXAMPLE PROJECT 
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TABLE 2. INITIAL FILM REQUIREMENTS DATA FOR SKYLAB MISSION 
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TABLE 3. LISTING FROM ACTIVITY TIMELINE TAPE 
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serves as a means of tracing canister handling. Associated attributes are given for each 
filming performance, including experiment title, film type, camera type, and location. 
Statistics on the remaining unexposed film and the cumulative out-of-repository time 
are shown. Logic within the program generates a message when all requirements for a 
particular experiment have been completed. Incompatibilities between the activity 
performance time and the assigned shoot time are also noted in this output. 

Table 5 gives the final summary per film type for each canister. These results 
permit the mission planner to reassign unused film to other experiments that require the 
same film type, thus optimizing the number of canisters. 

A histogram of cumulative out-of-vault times for each film type is given in Table 6. 
The average, minimum, and maximum, times out permit a rough estimate that any film 
type will receive a given amount of radiation damage. A large distribution of canisters 
per film type represents a typical variety for out-of-vault times and gives a good indication 
of what the final mission statistics will probably be like. 

Table 7 includes the percentage of filming requirements that are completed 
during the mission. Incomplete requirements indicate that not enough performances of 
the activity are scheduled or that an excessive amount of film is assigned. This informa- 
tion permits the analyst to recommend that the Principal Investigator reduce his desired 
footage or use longer shoot times. In some cases the longer shoot times will not give any 
more photographic information. One additional solution to this problem is to schedule 
more performances of the desired filming event. 

Table 8 includes a portion of the printout from canister usage trace tapes. Each 
record contains four words of information. The first word is the canister code (XXYY - 
XX is the film type, YY is the canister number) and is used for identification purposes. 
The second and third words are floating point variables giving the absolute mission times 
(hours) that each canister is removed and returned to the film vault. The fourth word 
is an integer code reflecting the location of the canister during filming operations. The 
tape is generated by a formatted write statement, and therefore must be read according 
to the following format (14, 2F10.3, 14). The data contained on this tape serve as input 
to a radiation analysis program that determines the probable dosages received by each 
canister during the duration of the mission. 


PROGRAM DESCRIPTION 


Program Execution 

A flow chart showing the major events for normal operation of the program is 
given in Figure 1 . Execution begins by reading in all user-defined variables. The mission 
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TABLE 5. FILM USAGE SUMMARY 
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TABLE 6. FREQUENCY RESULTS FOR TIME OUT OF VAULT 
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TABLE 8. PRINTOUT OF CANISTER TIMELINE TAPE 


1 ni 

?4 .900 

29, 5un 

1 

1 D? 

24.900 

2 9,9 011 

1 

] m 

29.790 

3 0,7 9 0 

4 

in? 

25.790 

30, 7 9(1 

4 

1 np 

33.230 

3 4 , 7 3 ri 

4 

1 D=5 

34 .230 

39,900 

4 

] ni 

35.900 

3 6 . 50 0 

4 

1 u? 

39.900 

26 ,500 

4 

1 ri3 

35 .900 

36.917 

4 

1 

39.790 

4 0.06 7 

4 

1 1 1 

91,920 

92,470 

4 

1 ni 

93.000 

04 ,Oi!(i 

4 

1 n:? 

51 .900 

61,317 

4 

m3 

63,290 

63.967 

4 

1 0 4 

53.290 

63,957 

4 

109 

75,490 

76 ,7 50 

4 

301 

7 9,000 

73.233 

2 

304 

79.000 

■ 73.233 

2 


79.000 

73.233 

2 

701 

73,000 

73,233 

2 

704 

7 9 .non 

73.233 

2 

Pfll 

79 , 000 

73,233 

2 

1 1 3 

flu. 7 00 

31,350 

4 

1 0 9 

fll .2 30 

32 ,500 

4 

1 1 n 

fl 1 . 2 3 n 

3 2 . 9 0 n 

4 

104 

fl 3 . 9 00 

33.817 

4 

1 0 4 

fl S , 7 9 0 

37,067 

4 

1 1 4 

38.090 

33,500 

4 

1 OP 

93.790 

1 00,250 

4 

301 

1 02 .250 

102.463 

2 

304 

102,290 

102.483 

2 

';ni 

1 02.290 

102,483 

2 

701 

102,290 

102,483 

2 

704 

1 02.290 

102.483 

2 

90] 

1 02 , 29(1 

102,433 

2 

1 OP 

104.'= 00 

1 06 .000 

4 

1 04 

107. nno 

1 0 7.2 5 0 

4 

109 

1 07 , I'OO 

1 117 .2 90 

4 

1 1 7 

171.070 

173.070 

4 

1 1 n 

1 22 . 4 Pli 

123,7‘=0 

4 

1 1 4 

123,290 

1 26, 670 

4 

1 1 3 

1 28. ='20 

123,370 

4 

1 1 n 

1 4 5 . flOM 

147.290 

4 

1 1 1 

] 4 5. 3 all 

147.250 

4 

30 1 

149,330 

143,113 

2 

30 4 

1 4 g , a 8 0 

14 3,1 13 

2 

901 

1 4 9 , fl a 0 

14 3,113 

2 

70 1 

148.830 

143.1 13 

2 

704 

14 3.33 0 

14 3,112 

2 

901 

1 48,0 SO 

140,1 13 

2 

1 1 3 

19 1, 2011 

m 1 . fl 9 ri 

4 


14 




Figure 1. Film usage analysis program flow chart. 
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title and reference date are then printed out. If an output tape is to be generated, a 
message to this effect is noted on the title page. Subroutine GASP is then called to 
handle program control. The initialization of the GASP files are established by sub- 
routines DATAN and CDATA. Subroutine CDATA allocates and assigns the number of 
canisters needed to complete each filming requirement. The EVNTS routine determines 
the state of the next event simulation by testing the value of attribute 1 in the current 
events file. The program is then transferred to one of three different legs. Leg one is 
executed at the start of each filming event. Cumulative statistics on canister usage and 
time out of the vault are collected and stored in the canister/experiment files. The inter- 
mediate film usage results are printed out. Generation of a canister usage timeline trace 
is recorded on tape. The last operation in this leg is accomplished by EPICK. This 
includes the updating of the current events file with the requirements for the next filming 
activity. The activity timeline tape is required as input to this routine. Execution sends 
control back to routine GASP. 

Leg two is executed at the end of each filming event. The status of the canister 
usage is recorded and stored in the canister/experiment files. Program operation is then 
returned to GASP. 

The last major leg is called only at the end of the mission. Subroutine MATRIX 
prints out the summary Tables 5 through 7. If an output tape has been generated, sub- 
program WRITEO is called. Subprogram WRITEO rewinds the output tape and prints 
the data contained on this file. Routine PFILE checks the status of the GASP files to 
determine if all information has been retrieved. Variable MSTOP is set to the value of 
(-1); thus, program execution is completed. 


User-Written Routines 

User Subprogram Descriptions. Table A-1, Appendix A, gives a description of 
the user-written subroutines that are contained in the FUA program. Each routine has 
been well explained; therefore, only a brief statement of its purpose was given. 

User Variables and Arrays . An alphabetical list of the variables contained in the 
user-written program is given in Table A-2 of Appendix A. All variables are defined in 
COMMON. All dimensioned variables that limit the size of the problem are discussed in 
the following subsection. 

Program Limitations. The size of the analysis is limited by the dimensions of the 
user-defined arrays. Current program limitations are shown in the following table. 
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Arrays Affected 

Limitation 

Characteristics 

NAME 1 (200) 
NAME 2 (200) 

200 

Number of different filming activities. 

ICAN (40) 

40 

Number of canisters per activity for 
each film type. 

KFILM (25) 

25 

Number of different film types. 

TRANS (4) 

4 

Number of different areas in which 
filming occurs. 

CAMERA (4) 

4 

Number of camera types. 


The complete compiled program uses 20 500 words of core storage. 


Error Messages. Normal operation of the program will not terminate execution 
because of changes in input data. However, the development of the program included 
various tests within the user-written and GASP subroutines that determine if the program 
is operating in a nominal manner. These tests will terminate execution by calling sub- 
routine ERROR upon the generation of any irregular conditions. At this time a complete 
dump of the status of all GASP files will be made. The following list of error codes and the 
corresponding routines is included as a troubleshooting tool for those wishing to modify 
the program. 


r Code 

Routine 

11 

EPICK 

12 

NXEVT 

87 

FILEM 

88 

SET 

89 

FIND 

93 

GASP 

97 

RMOVE 

90 

COLCT 
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Fortran Listing. A Fortran listing of the user-written subprograms is contained in 
Tables A-3 through A- 15 of Appendix A. 


GASP Royfmes 

GASP File Definitions . The GASP written program requires the manipulation of 
three user-defined files. The information contained in each file is retrieved and filed 
through the use of the GASP-IIA routines that are called within the analyst-written sub- 
routines. 

File 1 is always the current events file, and the user’s event subprograms must be 
written so that the attributes of the next event to occur are stored in file 1. Two additional 
sets of files are defined. 

The first set, referred to as the experiment/film requirements files, consists of a 
file for each experiment that requires film. Each entry in a file corresponds to a different 
filming requirement. The file number corresponds to a code assigned to each experiment 
and varied from 3 to 200. The second set of files, referred to as the experiment/canister 
files, is generated within a user subroutine using the film requirements specified in the 
first set. As for the first set, a file was defined for each experiment that required film with 
the file number corresponding to 200 plus the experiment code. An entry was made for 
each film canister that was allocated to each film requirement. The fixed- and floating- 
•point attributes associated with each of the files are given in Tables B-1, B-2, and B-3 of 
Appendix B. 

GASP Subprogram Descriptions. The GASP routines used in the FUA program 
consist of the set of standard subprograms that make up the simulation language. However, 
the operation of the program utilizes only 10 out of the 22 available subroutines. Sub- 
routines GASP and DAT AN were modified to reduce unnecessary logic and input to the 
program. The other eight routines are used for information storage and retrieval, error 
reporting, and data collection. The function of each subprogram is described in Table B-4 
of Appendix B. 

Variables and Arrays . The variables contained in the FUA program that are 
peculiar to the GASP subroutines are included in Table B-5 of Appendix B. It should be 
noted that not all of these variables are used by the program but are listed in the COMMON 
statements of the standard GASP routines. 

GASP Listing. A Fortran listing of the GASP subprograms is contained in 
Tables B-6 through B-1 6 of Appendix B. 
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APPENDIX A 

USER-WRITTEN PROGRAM INFORMATION 


TABLE A-1. USER-WRITTEN SUBPROGRAM DESCRIPTION 


Subprogram 

Function 

MAIN 

Serves as master control FUA program. All initialization of user 
variables is read in from this routine. (Subroutine called GASP.) 

CDATA 

Initializes the experiment/canister files from the data available 
in the experiment/film requirements files. (User-written sub- 
routine called NONE.) 

ENEVT 

Stores the attributes of ending an event in the experiment/ 
canister files. (User-written subroutine called SCANT.) 

EPICK 

Sets up data for the current events file. Film activity timeline 
tape provides input to this routine. (User-written subroutine 
called NONE.) 

EVNTS 

Controls the sequencing of starting or ending an event and end 
of mission. (User-written subroutines called STEVT, ENEVT, 
and MATRIX.) 

MATRIX 

Generates the summary tables for the FUA program. Output 
includes Tables 5 through 7. (User-written subroutines called 
PFILE and WRITEO.) 

NXEVT 

Collects statistics and determines the time usage data on each 
canister of film. Generates the attributes for the next experi- 
ment requiring film. Prints out message indicating that an 
activity has completed all filming requirements. (User-written 
subroutines caUed SCANT, SCAN,OTPUT, and EPICK.) 

PFILE 

Prints out the current values of the attributes stored in the GASP 
files. This routine is called when abnormal operation of the 
program occurs. 
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TABLE A-1. (Concluded) 


Subprogram 

Function 

OTPUT 

Prints out the film canister usage timeline (Table 4) and gener- 
ates an output tape if required. (User-written subroutine called 
NONE.) 

SCAN 

Updates the attributes of the experiment/canister files for those 
activities that share film off a common canister. (User-written 
subroutine called NONE.) 

SCANT 

Determines the status of the canister usage such as canister on 
standby or in vault and partially used or new canister, (User- 
written subroutine called NONE.) 

STEVT 

Checks to see if the event is the first event. Computes the time 
for ending an event and determines the total footage used during 
the filming activity. (User-written subroutines called EPICK and 
NXEVT.) 

WRITEO 

Produces a printout of the data contained on the canister usage 
timeline tape. This routine is executed after the output tape has 
been generated and serves as a check on parity errors. (User- 
written subroutine called NONE.) 
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TABLE A-2. USER-DEFINED VARIABLES AND ARRAYS 


Variable 

Definition 

A(I) 

A buffer array used to store the floating-point attributes of the 
current events file. 

BTIME 

The beginning time for the start of filming events. 

ETIME 

The time in which a canister is returned to the vault. 

IA(I) 

A buffer array used to store the fixed-point attributes of the 
current events file. 

ICAN(I) 

The number of canisters per film type per activity. 

JCOUNT 

Counter used to keep track of the number of printed lines per 
page of output. 

JTEST 

Indicator value that permits an output tape to be generated. 
(Value = 1 if output tape is required.) 

KFILE 

Unit number for the input tape (flight plan data tape). 

KOUT 

Unit number for the output tape (canister usage timeline trace). 

KFILM(I) 

Stores the different types of film to be used during the mission. 

NAME 1 (I), 
NAME 2 (I) 

Used to store the alphanumeric identification name of the ith 
filming activity (12-letter description). 

NCODE(I) 

The array used to store the values of the filming activity codes. 

NFILM 

The number of different film types used during the mission. 

NOEXP 

The number of activities or experiments requiring film. 

NRECYC 

Test variable used to determine if additional filming is to be 
completed during present filming activity. 

NWRITE 

Indicator value used to print out a message when all film require- 
ments of an activity have been completed. 
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TABLE A-2. (Concluded) 


Variable 

Definition 

OTIME 

The amount of time the film canisters were out of the vault 
other than for filming operations (minutes). 

PFOOT 

The tolerance on the amount of film shot per performance (feet 
or exposures). 

PRTIME 

The amount of time the canisters have spent in the vault other 
than during the current mission (minutes). 

RFOOT 

The minimum amount of film remaining on a canister in order 
that the canister can be used again (feet or exposures). 

TRANS(I) 

The translation times for moving the canisters between the vault 
and the area in which filming occurs. 

VATIME 

The maximum time that the film canister has been in the vault 
during the current mission (minutes). 

XDAY 

The number of minutes in an orbital day. 

XTIME 

The initial time for the start of the first mission day (minutes). 
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TABLE A-3. FORTRAN LISTING OF USER-WRITTEN PROGRAM MAIN 
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TABLE A-4. FORTRAN LISTING OF USER-WRITTEN SUBPROGRAM CDATA 
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TABLE A-7. FORTRAN LISTING OF USER-WRITTEN SUBPROGRAM EVNTS 
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TABLE A-8. (Continued) 
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TABLE A-8. (Concluded) 


o 

DO QODoaoa 

a a o a 

000300000 


t\j fO sr 

in ic 

r-* CO cn a 

fsj W ar 

tnuC"^co^o**^cMPn 

r- 

p- r* 1^ 

pfc r— r*’ CO 

CO flC CO CG 

flooococococrcrff'cr' 


««« 


a>»e M 



X 

XXX 

X X 

X X X X 

X X X X 

X X XX XX XXX 

1- 

|» }“ inm 

j— ^ 

{— H- ^ 

H- >- 

►“p— t^l— t“i— s*“ 

«z 

<1 43 «a 

<SI 

<4 ^ «ei 

4 <4 <4 >Q 

a4«3‘a4<4'444«a[ 

s: 

s: 2 L s 

Z 3u 

s se;’ X X 

X X X X 

xxxxxxxxx 



U 


<?e* 




UJ 






M" 


«ta< 




LiJ 


flC 




«J 


S-H 




a 


tt 




z 






o 


4 




o 


«» 










z 


O. 




bJ 


X 




LJ 


UJ 




CD 


X 






MM- 




»— 


ft. 




O 


X 




z 


I:!.' 






Z 




UJ 


» 










•4 






X 


»•* 






ai 




X 


P-4 




LJ 


Of 




►-« 

►- 





X 

UJ 





3 

(/I 

o 





o 

•i^ 




tri 

» 

IE 




¥— 

►— 

2ir 




z 

UJ 





UJ 

1/! 

fSJ 




X 

z 

UJ 




UJ 

® • 

X 




a: 

X a 

«a 




H< 

o 

Z 




3 

rM j-n 

e 




O 

u; m * 

««> 

h- 



UJ 

»-» CT — 

Sc' 

1 o 



q: 

f\! •• 


» a a 




o ® 


sr UJ 



un 

1— — 

CNj 

h- 




CD 

n UJ 

Uj Uj ^ 



X 

o *-* 

a X 

^ ^ o: ^ 




LD a 

X « 

CD IH 3 h- 



»— 

«*• p“ 

UJ z 

4 U. Uj 



z 

C n <i 

X 

— J m 



UJ 

• T >» 

•»* 4F* 

1 O ^ C9 



X 

e — 

OJ LD »— 

X Z 4 • 




UJ UJ m 

« O z ^ 

CD O UJ LJ |-> 



q: 

e U- — ' 

<3 cr tJ ♦ 

<y> ^ UJ 

►- 


UJ 

X CD 

UJ • C£ H- 

cn » *>n (/; 

z 


CL 

«- p-t 

• »- UJ 2 

• X • • Z 

o 


X 

oc 

z a 3 

P“ ^ C C5 ^ 

c 


UJ 

l.l J- 

CM q: «» o 

Z IT Lu Uj u. 

(J 

PH 


» 4 

a — o 

a* QC ■%. • 9 aJ 


iC Ll) 

u. 

-3 0^ 

CO Z in -5 

ID lU CL ^ p* P« M 

II 

=3 

IH 

n X It 

^ II 

3 2 «a» 1/) 1/1 LL. 

»- 

z 


cc ^ 

cr co>>» 

2 P- UJ l.l CL Z 

z 

O t*"' 


O Z tl 

P- liJ PH 2 

o PH UJ 4 I— p- a 


pmw ^ 

C.J 

z -j u a 

cr 3 

P“P-»~X33-J3 

o 

z 

Uj 

'«»• — 1 CE X 

’w* IH *i- o 

2Phq:^.».^i„0 

C: 

o o 

X 

U. 41 Uj Ll’ 

u- or 4 tj 

o o cr o u Ll. 4 u.t z 

“3 

C»5 CJ 

LJ 

tJ a. X 

M • 3 

IDijSU- MmUCTU. 



* 





CM 

«■ 





a 


UJ 


ir cr 



■» 



«»>. cr 






cr 


U ULJ 


(vj«-5ririrr'C<ro»-'r>.f<'a-ir. irP'OT a'cr»-tvt«' 

oc cc cc a: ecececK oo cr cr cr <r 


35 



> 

W 

X 

X 

<d 

Pi 

o 

o 

Pi 

Oh 

03 

C/D 

z 

W 


Pi 

I 

Pi 

m 

00 

D 

fe 

O 

o 

g 

H 

on 

>— ( 

hJ 

Z 

C 

03 

H 

a; 

o 

tLi 


CJ\ 

< 

w 

hJ 

00 

< 

H 


coc.ocaaoa 

^fsiKia’k^Oiof^ooOi 


00300 0 a ocoo 

o « r>j or kf’ »u O' -3 


0-3 OOO OOOO 
'-'f\jKi a-iT) u;r~ccCn 
C\.fNjtNJ tvrvi tMCVfV’CV 


0 0-3 0300000 
0 <^fS)i< 3 £rinioP» a; 0 ^ 


C O O c 

•-« CM M a- 

jr if a- 


ococ oooooc. o 

ujj^cf 0 'o«^(MrOa‘^tn 
a ST a- m ir> IT i/» ui m If- 


>>>>>>>& 
UJ 1,1 Uj III UJ Ijj UJ 111 
XX XX X X X X 
ZZ Si zzzzz 


liJ )• ' UJ 111 tLl UJ 

X X X X X X 

2 Z Z Z ^ 2 * 


UJ 1, 1 UJ 1 1 1 Ui 1,1 UJ I, I U- ti I Uj ii,r UJ I, « UJ I, I U-- I, I UJ I, I UJ (, * UJ I , I Uj Ij 1 UJ 1,1 UJ I, ' UJ 1,1 U.' f,j Uj 1*1 Uj Ijj Uj Ilf UJ 1 , 1 
XX XXXX XX XXx X XX XX XX XX XX XX XX XX XX XX XX xX XX XX XX 

ZZ2ZZ22ZZZ222ZZ2222Z2Z2ZZ22ZZZZZ2ZZ2Z2225:Z 



36 



TABLE A-9. (Continued) 
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TABLE A- 10. FORTRAN LISTING OF USER-WRITTEN SUBPROGRAM OTPUT 
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TABLE A- 13. FORTRAN LISTING OF USER-WRITTEN SUBPROGRAM SCANT 
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TABLE A-15. FORTRAN LISTING OF USER-WRITTEN SUBPROGRAM WRITEO 
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APPENDIX B 

5 PROGRAM INFORMATION 


TABLE B-1. ATTRIBUTES FOR EVENT FILE 


Attributes 

Description I 

Fixed-Point 

1 

Event code: 1 — start filming, 2 — end filming, and 4 - end of 
mission. 

2 

Experiment code. Used in communicating with the experiment/ 
canister files. 

3 

File type. Used for output purposes. 

4 

Entry number in experiment/film requirements file. This 
attribute is used to communicate between the files for file 
updating. 

5 

Camera type. Used for output purposes. 

6 

Footage per canister. Used for output purposes. 

7 

Code for location in which experiment is performed. Used for 
output purposes. 

8 

Indicator used to determine if all assigned film is depleted. 

Floating-Point 


1 

Time the event occurs. Required by GASP to perform next 
event simulation. 

2 

Filming time per experiment performance. This attribute is 
used in conjunction with the camera rate to determine the 
footage. 

3 

Camera rate. 

4 

Time the performance of experiment ends. This attribute is 
used in conjunction with the time that filming starts to compute 
statistics for the canister. 

5 

Time in which the filming event begins. 
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TABLE B-2. ATTRIBUTES FOR EXPERIMENT/FILM 
REQUIREMENT FILES 


I Attribute 

Description 

Fixed Point 


1 

Film type. Used by event file and experiment/canister files for 
information purposes. 

2 

Camera type. Used by event file. 

3 

Common canister code. All experiment requirements with the 
same code use the same canister. 

4 

Footage per canister. Used by event and experiment canister 
file. 

5 

Code to indicate that the film is to be returned to the vault 
immediately after filming versus waiting until the experiment 
is complete. 

6 

Entry number in file. Each entry in a file is numbered in 
ascending order. This is used to communicate between the 
experiment/film requirements files and the experiment/canister 
files. 

7 

Code for the location where filming occurs. Used for determin- 
ing the amount of transfer time between the film vault and 
shoot area. 

Floating Point 


1 

Total footage or exposures of film required for the experiment. 
Used to determine the number of canisters to assign to the 
experiment. Also used in conjunction with the cumulative 
footage or exposures during the simulation to determine when 
all of the filming requirement has been met. 

2 

Filming time per experiment performance. This is used by the 
event file. 

3 

Camera rate. This is used by the event file. 

4 

Not used. 

5 

Cumulative footage or exposures used. 
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TABLE B-3. ATTRIBUTES FOR EXPERIMENT/CANISTER FILES 


1 Attributes 

Description 

Fixed Point 


1 

Canister numbers. The canisters are numbered in ascending 
order by film type. Used for output purposes. 

2 

Canister status code: 1 — has not been used, 2 — partially used 
and in the vault, 3 — partially used and out of the vault, 4 — in 
use, 5 — no film remaining. 

3 

Footage per canister. Used to initially define the remaining 
footage or exposures. Also used for output purposes. 

4 

Film type. Used for output purposes. 

5 

Common canister code. Used to determine if the canister is used 
by more than one experiment. 

6 

Entry number in experiment/film requirements file which the 
canister is allocated to. 

Floating Point 


1 

Cumulative transfer time. This is the time that the canister is in 
transit between the vault and the filming location. 

2 

Cumulative filming time. This is the time that the canister is 
being used for filming. 

3 

Cumulative wait time. This is the time that the canister is out of 
the vault but not being transferred or filmed. The sum of the 
transfer time, filming time, and wait time gives the total time out 
of the protective vault. 


Remaining footage or exposures. Used to determine when all of 
the canister has been used. 
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TABLE B-4. GASP SUBPROGRAM DESCRIPTION 


Subprogram 

Function 

COLCT 

Used in computing the mean, standard deviation, the number of 
observations, and the minimum and maximum values of a 
variable. 

DATAN 

Initializes GASP variables and sets up to experiment/film 
requirements from the input data. 

ERROR 

Called when an error is detected in any GASP subroutine except 
PRNTQ, SUMRY, and MONTR, all of which print their own 
error messages. 

FILEM 

Called to file an entry in file JQ of the arrays NSET and QSET. 

FINDN 

Used to locate a row called KCOL in file JQ of the array NSET. 

FINDQ 

Used to locate a row called KCOL in file JQ of the array QSET. 
The only difference in FINDN and FINDQ is that the first argu- 
ment of FINDQ is a floating-point variable, and additional argu- 
ment TOL is added. TOL is the tolerance used in the search for 
the specified condition. 

GASP 

Executive control for GASP written programs. 

HISTO 

Used to obtain the histogram of observed observations. 

RMOVE 

Called to remove an entry from file JQ of the arrays NSET and 
QSET. KCOL is the row to be removed. 

SET 

This subroutine maintains and updates the filing arrays NSET 
and QSET. 
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TABLE B-5. GASP VARIABLES AND ARRAYS 


Variable 

Definition 

ATRIB(IMM) 

Buffer for floating-point attribute values stored in or retrieved 
from QSET array. 

ENQ(NOQ) 

Time-integrated number of entries in a file. 

ID 

Number of rows of NSET and QSET, limited only by available 
storage. 

IM 

Number of attribute columns in NSET. 

IMM 

Number of attribute columns in QSET, 

INN(NOQ) 

If INN(J) = 1 , entries in file J are ordered with lowest value first 
(LVF). If INN(J) = 2, entries in file J are ordered with highest 
value first (HVF). 

INIT 

Indicator. The statements INIT = 1, CALL SET (1, NSET, 
QSET) initializes NSET and QSET. 

ISEED 

Initial random number. 

JCELSCNHIST, 

MXC) 

Storage array for histograms. 

JCLR 

If JCLR < 0, the statistical storage areas are not initialized. If 
JCLR > 0, the statistical storage areas are initialized. 

JEVNT 

Code of event being processed. Also used as a control in sub- 
routine MONTR. 

JMNIT 

If JMNIT = 1 , each event is monitored. If JMNIT = 0, no 
monitoring occurs. 

JSEED 

Local variable used in subroutine DATAN to read the initial 
random number seed value. JSEED must be positive for TNOW 
to be set to TBEG. 

JTRIB(IM) 

Buffer for fixed-point attribute values being stored in or 
retrieved from NSET. 
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TABLE B-5. (Continued) 


Variable 

Definition 

KRANK(NOQ) 

KRANK(J) is the attribute column on which File J is ranked. 

MAXNQ(NOQ) 

MAXNQ(J) is the maximum number of entries in File J. 

MFA 

Identifier of first row in NSET that is available for storing an 
event or entity. 

MFE(NOQ) 

MFE(J) is the first entry in File J. 

MLC(NOQ) 

MLC(J) is the next entry in File J to be removed. If not speci- 
fied, MLC(J) is set equal to MFE(J). 

MLE(NOQ) 

MLE(J) is the last entry in File J. 

MSTOP 

Indicator for specifying method of ending the simulation. 

MX 

Successor column in NSET array. (MX = IM + 1 .) 

MXC 

Largest number of cells to be used in any histogram. 

MXX 

Predecessor column in array NSET. (MXX = IM + 2.) 

NCELS(NHIST) 

NCELS(J) is the number of cells in histogram J, not including 
end cells. 

NCLCT 

Number of sets of statistics that can be collected in COLCT. 

NEP 

Indicator used in DATAN for initialization. NEP specifies the 
data card type at which reading of initialization cards is to 
begin for the next simulation run. 

NHIST 

Number of histograms that can be generated by HISTO. 

NOQ 

Number of files in NSET and QSET. 

NORPT 

If NORPT > 0, SUMRY and OTPUT are bypassed. If 
NORPT = 0, SUMRY and OTPUT are used. 

NOT 

If NOT == 0, simulation starts from beginning. If NOT > 0, a 
check on NEP is made. 
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TABLE B-5. (Concluded) 


Variable 

Definition 

NPRMS 

Number of sets of parameters. 

NQ(NOQ) 

NQ(J) is the current number of entries in File J. 

NRUN 

Number of the current simulation run. 

NRUNS 

Number of runs remaining, including the one remaining. 

NSET(ID*MXX) 

Integer part of the filing array. 

QSET(ID*IMM) 

Real valued part of the filing array. 

QTIME(NOQ) 

QTIME(J) is the time of the last use of File J. 

SSUMA(NSTAT,J) 

Array for storing time statistics generated by TMST. 

SUMA(NCLCTJ) 

Array for storing statistics generated by COLCT. 

TBEG 

Initial value of TNOW. 

TFIN 

Time to end the simulation if MSTOP > 0. 

TNOW 

Current time of a simulation. 

VNQ(NOQ) 

Time-integrated square of the number of entries in a file. 

OUT 

If OUT = 1 , an entry is to be removed from NSET and QSET. 
If OUT = 0, an entry is to be stored in NSET and QSET. 
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TABLE B-6. FORTRAN LISTING OF GASP SUBPROGRAM COLCT 


oacaaoaaaaaciaaaaaaC! 


CJUCJCJUCJUOtJt CJOtJOtJCJUtjU 


OOcOoOoOOC OOOOOOOOO 
LJtJtjLJtJCJCJtJtJO OcjUUOtJUtJtJ 


<» 

o 

s 

h- S. O 

I/l 3t O ry 




»-i o 


a 

» 

Ou 














X 2* 


s 

OPA. 

z 














2 H> 

1/*. 

u« 

a 

a 














i» » 

2 

Si' 

o 

A 














1- cn 

X 

Z 

s 

LCI 














LJ »iJ 

«*5 

4 

•M> 















«! LU 

X 

O' 

o 

lU 














U 1/1 

e 

V' 

2 

2T 














2 *- 

U1 

e> 

» 

<07 














e» o 

o 


•M 

Z 














O LU 

X 

CM 

‘X 

8S 














X -» 

•a 

CM 

CM 

«»* 














X 

X 

» 


in 














» CJ 

a 

C 

lO 

» 














X 1/1 

X 

cv 

«u 

er. 














X * 

X 


LU 

CM 














» w 

l~< 

1/1 

CJ 

Car 














a 3 

a 


2 















o c: 


bJ 

a 

X 














h— ** 

Q 

U 


3 














t/I •“ 

C 


c 

in 














2: 

o- 

9 

c 

«• 














o ►” 

w 


s 

can. 














4 1/1 

G 

n 

w 

in 














lu Z 

2 

o 

lU 

» 














X * 


if 

-J 

a 












Lu 


» l/t 

• 

w 

X 

CMi 








«»• 

4NC 



I/I 



a 

2 

a 

V 








X 

X 



<3 


»-H rj 

ijj 

Z 


43 








» 

• 



« 


Z O' 

2 

w 

c 

y 









«c 



H* 


X z 

a 

« 

a 

ra 








s 

in 



u; 


-5 « 

G 


sr 

LO 






X 

C 

n 

a 



U' 


» 2 

c 

a 


m 



«nk 



* 

« 

2 

2 



2 


1- ^ 

q; 

n 

u 


«*■ 


>— 


X 

X 


*nr 

—> 



» 

1— 

2 ce 

u 

S’ 



p*- 


Lu 


♦ 

<*• 

t- 

<C 

43 



2 

U-* 

5» 2 

2 


X 

a 

«a* 


in 



*•* 

(M. 

X 

X 



» 

1/* 

UJ • 

» 

c 

» 

c 

w 


<3 


«•“* 

IV 

fO 

13 

3 



X 

e 

«3 

►- 

2 

»»» 

s 

CC 


* 

IV 

a 

» 

» 

in 

in 



•w 

«9 

«• X 

Z 

lu 

o 

«»• 

►-I 



a 

2 

2 

2 


car 





f- a 

a. 

• 

a III 

CC 


u. 

m 

Car 

car 

w 

rm 




>“ 

S-1 

»-H Q. 

a 


S 

X 

I— 


in 

V 

<a 


<1 

2 

X 



CJ 


2 Z 

2 

in 

<w> 




2 

m 

X 

X 

X 

»-c 




•J 

h~ 

t-* » 

» 


Uj 


• 


» 


O 

r3 


X 

X 



o 

Lt. 

» ►— 

X 


U. 

o 

o: 


w 

rr. 

in 

in 

in 

43 

«a 



(J 

1/ 

X o 

X 

rr 

22 

a 

.u 

cxn 

O' 










2 

HH Z 

X 

tP-H 

» 


u 


w 

tJ 

it 

1 1 

n 

H 

1 1 



L. 


« » 

» 

or 

«» 

S 

~5 

CM 

q: 

-J 








2 

Z 

c 

2 

t— 

w 

» 

S» 

tt 

o 

C-' 


acv 

r-c 

«•* 

—» 




O 

»H Ql 

M 

< 

c: 


q: 

CM 

CE 

2 

f— 

fM 

PO 

3- 

IT 



»— 

l-H 

ry 

U. 


s 

sy 

>- 


l£ 



a 

» 

a 

9> 




iT. 

2 o 

►- 

z 

<«« 

«af 

2 

«» 

UJ 

1 

2 

2 

2 

2 

2 

<c: 


o 

Z 

a 2 

a 

c 

o 

X 

** 

2 


2 

CM> 

Mr 

%>r 

«,r 

*ar> 

O' 


Q 

Ij ' 

X « 

ID 

X 

2 

<tS 

>- 

w 


car 



4 

sa 

«a 

3 


CL 

s 

a. c 

lu 

X 

X 

or 





X 

X 

X 

X 

X 

h— 

o 

Z5 


o o 

CC 

o 

< 


C; 

Ij. 

<3. 

IJ 

3 =3 

13 

=3 

13 

Ul 

2 

1/. 

fn 

u ^ 

►=“ 

o 

X 

o. 

2 

t-<» 


f-c 

in 

in 

in. 

in 

m 

cv 

Lu 



)PH 

(M 



fv 

PO 












t— CM ^ PO 


C 

CJ 

tfl 


o«-'rs.pra^irt«^r^<rorc: <f=-fs;iv«pu'Lt.r-erO' 

ir 


St 


53 



aQnDooacocjaC2aCicc.c3acC33accc:cac3ocoaacicc:3accicc:cc.Q'2oa'33c:c.c:c 

<-<t^i^03lrlU)^^cL(^3•>^r^Jr')9t/'l■C^*cca'I^MC^(^nsulUir-oc.mwM^w|v^a^t^<ui^.EC(nll<^c\.rc^L/'u;r-a^(^^«-•r^i^^9Lnu: 

t-ir-,^„fV(\jr\fM{\;r\.rvrv)rv(\.for^MfoK:r'’f^f>rf^^-3-a'3-3'3'0'3‘3'-3‘a'UiDLruiLr, U1U1 

ZZZ5rZZr2r2Z2Z23»2Z^yZ^2.2SS'i-ZZy23»2:2S:ZZ^2rs*2:Z'2Z2^2?'2:r2?2^Z;?2 


Q C C Q C3 O O I 



Cw-(VK«u \tP*'«,oC^*Nf^3U*u.r--«.crCt-rv»r3'iru.r»o’C‘C^rw»<-atfiaf*'O:crC*-‘rsir<'a-u:u.h“0C<rc^*vr^a-if U 
IT if^r^tt-frtff'srasaaoaoaauu'ifirutr^u- 

w. 
a 
c 


54 



TABLE B-7. (Continued) 
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TABLE B-8. FORTRAN LISTING OF GASP SUBPROGRAM ERROR 
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TABLE B-10. FORTRAN LISTING OF GASP SUBPROGRAM FINDN 
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TABLE B-14. FORTRAN LISTING OF GASP SUBPROGRAM RMOVE 
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